home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Pascal / Applications / P4⁄Mac 1.0 / test programs / prompt.p < prev    next >
Encoding:
Text File  |  1994-07-29  |  161 b   |  12 lines  |  [TEXT/Rich]
  1. program prompt(input, output);
  2.  
  3. var
  4.     num: integer;
  5.     
  6. begin
  7.     writeln('Hello!');
  8.     write('Type a number: ');
  9.     read(num);
  10.     writeln('Its square is: ', num*num);
  11. end.
  12.